OBJECT Page 86001 Event-Aware Button Demo
{
  OBJECT-PROPERTIES
  {
    Date=01.08.14;
    Time=20:09:44;
    Modified=Yes;
    Version List=Vjeko.com;
  }
  PROPERTIES
  {
  }
  CONTROLS
  {
    { 1   ;    ;Container ;
                ContainerType=ContentArea }

    { 2   ;1   ;Field     ;
                Name=Button;
                ControlAddIn=[Vjeko.com Event Aware Button Control;PublicKeyToken=d1352e7299fc6ed4] }

  }
  CODE
  {
    VAR
      Image@1001 : DotNet "'System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'.System.Drawing.Image";
      ContentAlignment@1002 : DotNet "'System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'.System.Drawing.ContentAlignment";
      DockStyle@1000 : DotNet "'System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Windows.Forms.DockStyle";

    EVENT Button@-2::OnAnyEvent@3(eventName@1002 : Text;sender@1001 : Variant;eventArgs@1000 : Variant);
    BEGIN
      MESSAGE('Event: %1',eventName);
      CurrPage.Button.UnsubscribeFromEvent(eventName);
    END;

    EVENT Button@-2::ControlAddInReady@4(sender@1001 : Variant;e@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.EventArgs");
    BEGIN
      CurrPage.Button.SubscribeToEvent('Click');
      CurrPage.Button.SubscribeToEvent('MouseEnter');
      CurrPage.Button.SubscribeToEvent('MouseLeave');

      CurrPage.Button.InnerControl.Text := 'Click me!';
      CurrPage.Button.InnerControl.ImageAlign := ContentAlignment.MiddleLeft;
      CurrPage.Button.InnerControl.Image := Image.FromFile('C:\Temp\img.png');
      CurrPage.Button.InnerControl.Height := 30;
    END;

    BEGIN
    END.
  }
}

